#!
$sentence = "one little,  two little, three little, Indian boys";
$start = length($sentence);
while( ($start=rindex($sentence,"little",$start)) != -1 )
{
	print "find little at:$start\n";
	$start--;
}